home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / lotter1a / lottery.frm < prev    next >
Text File  |  1999-09-28  |  5KB  |  141 lines
  1. VERSION 5.00
  2. Begin VB.Form About 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000004&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   1845
  7.    ClientLeft      =   3675
  8.    ClientTop       =   3195
  9.    ClientWidth     =   4155
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       Name            =   "MS Sans Serif"
  14.       Size            =   8.25
  15.       Charset         =   0
  16.       Weight          =   700
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    ForeColor       =   &H80000008&
  22.    LinkTopic       =   "Form3"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    PaletteMode     =   1  'UseZOrder
  26.    Picture         =   "Lottery About Form.frx":0000
  27.    ScaleHeight     =   1845
  28.    ScaleWidth      =   4155
  29.    ShowInTaskbar   =   0   'False
  30.    Visible         =   0   'False
  31.    Begin VB.CommandButton AboutExit 
  32.       Appearance      =   0  'Flat
  33.       Caption         =   "&OK"
  34.       Default         =   -1  'True
  35.       DownPicture     =   "Lottery About Form.frx":2560
  36.       Height          =   465
  37.       Left            =   3030
  38.       Picture         =   "Lottery About Form.frx":29A2
  39.       TabIndex        =   0
  40.       Top             =   1320
  41.       Width           =   960
  42.    End
  43.    Begin VB.Label Comments 
  44.       Alignment       =   2  'Center
  45.       BackStyle       =   0  'Transparent
  46.       Caption         =   "Thanks"
  47.       ForeColor       =   &H00C0C0C0&
  48.       Height          =   270
  49.       Left            =   60
  50.       TabIndex        =   5
  51.       Top             =   1560
  52.       Width           =   2730
  53.    End
  54.    Begin VB.Label Company 
  55.       Alignment       =   2  'Center
  56.       BackStyle       =   0  'Transparent
  57.       Caption         =   "Dennis Hallman"
  58.       BeginProperty Font 
  59.          Name            =   "MS Sans Serif"
  60.          Size            =   12
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       ForeColor       =   &H0080C0FF&
  68.       Height          =   375
  69.       Left            =   60
  70.       TabIndex        =   4
  71.       Top             =   1275
  72.       Width           =   2715
  73.    End
  74.    Begin VB.Label Label3 
  75.       Alignment       =   2  'Center
  76.       BackStyle       =   0  'Transparent
  77.       Caption         =   "By"
  78.       ForeColor       =   &H0080C0FF&
  79.       Height          =   255
  80.       Left            =   60
  81.       TabIndex        =   3
  82.       Top             =   1065
  83.       Width           =   2730
  84.    End
  85.    Begin VB.Label Version 
  86.       Alignment       =   2  'Center
  87.       BackStyle       =   0  'Transparent
  88.       Caption         =   "Version Number"
  89.       ForeColor       =   &H00C0C000&
  90.       Height          =   495
  91.       Left            =   60
  92.       TabIndex        =   2
  93.       Top             =   525
  94.       Width           =   4035
  95.    End
  96.    Begin VB.Label Title 
  97.       Alignment       =   2  'Center
  98.       Appearance      =   0  'Flat
  99.       BackColor       =   &H80000004&
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "Program Title"
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   13.5
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H00C0E0FF&
  112.       Height          =   495
  113.       Left            =   60
  114.       TabIndex        =   1
  115.       Top             =   120
  116.       Width           =   4020
  117.    End
  118. End
  119. Attribute VB_Name = "About"
  120. Attribute VB_GlobalNameSpace = False
  121. Attribute VB_Creatable = False
  122. Attribute VB_PredeclaredId = True
  123. Attribute VB_Exposed = False
  124. Option Explicit
  125.  
  126. 'Load the Form..
  127. Private Sub Form_Load()
  128.     About.Left = Lottery.Left + (Lottery.Width - About.Width) / 2
  129.     About.Top = Lottery.Top + (Lottery.Height - About.Height) / 2
  130.     About.Title = App.Title
  131.     About.Version = "Version " & App.Major & "." & App.Minor & "." & App.Revision & vbLf & App.LegalCopyright
  132.     About.Company = App.CompanyName
  133.     About.Comments = App.Comments
  134. End Sub
  135.  
  136. 'Unload the Form..
  137. Private Sub AboutExit_Click()
  138.     Unload Me
  139. End Sub
  140.  
  141.